0 PRINTCHR$(14):V5=49152:POKE53280,0:POKE53281,0:PRINT"[147][193][150][213][159][212][156][207][196][201][158][193][149][204][150]/[212][152][197][210][153][205][152] [198]OR [193][204][204]! [154](10/10/84)":PRINT"[194]Y [210]ICHARD [194]RADLEY":PRINT"    [206]OW [196]IALS [198]IVE [205]ODEMS!":PRINT"    [201]NCLUDING:":PRINT"    [195]OMMODORE 1650 [193][213][212][207][205][207][196][197][205]"
1 PRINT"    [205]ITEY [205]O":PRINT"    [200][197][211][205][207][196][197][205] [201][201]":PRINT"    [215]EST [210]IDGE 6420":PRINT"    [195]OMMODORE 1600 [215]ITH [195]. [194]ONN [195]IRCUIT":IFPEEK(22784)<>76THENPRINT"[204]OADING [205]ACHINE [204]ANGUAGE":LOAD"TERM.64.2.C",8,1
2 IFPEEK(V5+10)=1ANDPEEK(V5+11)=1THEN17
3 OPEN50,8,3,"BAUD RATE.D":INPUT#50,BA$:POKEV5,VAL(BA$):CLOSE50:IFBA$=""THENOPEN50,8,3,"@0:BAUD RATE.D,U,W":PRINT#50,"6":CLOSE50:GOTO3
4 OPEN50,8,3,"MODEM DATA.D,U,R":INPUT#50,V1,V2,V3,V4,V1$:CLOSE50:IFV1$="RICHARD BRADLEY"THEN16
5 OPEN50,8,15,"I0":CLOSE50
6 PRINT"[147][215]HICH [205]ODEM [196]O [217]OU [200]AVE?":PRINT"1.  [195]OMMODORE 1650 [193][213][212][207][205][207][196][197][205]":PRINT"2.  [205]ITEY [205]O":PRINT"3.  [200][197][211][205][207][196][197][205] [201][201]":PRINT"4.  [215]EST [210]IDGE 6420":PRINT"5.  [195]OMMODORE 1600 [215]ITH [195]. [194]ONN [195]IRCUIT"
7 PRINT"[208]ICK 1-5 > ";
8 GETV2$:IFV2$=""GOTO8
9 IFV2$="1"THENPRINTV2$:V1=32:V2=32:V3=0:V4=127:GOTO15
10 IFV2$="2"THENPRINTV2$:V1=36:V2=0:V3=32:V4=219:GOTO15
11 IFV2$="3"THENPRINTV2$:V1=36:V2=0:V3=32:V4=219:GOTO15
12 IFV2$="4"THENPRINTV2$:V1=32:V2=32:V3=0:V4=127:GOTO15
13 IFV2$="5"THENPRINTV2$:V1=32:V2=32:V3=0:V4=247:GOTO15
14 GOTO6
15 OPEN50,8,3,"@0:MODEM DATA.D,U,W":PRINT#50,V1:PRINT#50,V2:PRINT#50,V3:PRINT#50,V4:PRINT#50,"RICHARD BRADLEY":CLOSE50
16 POKEV5+1,V1:POKEV5+2,V2:POKEV5+3,V3:POKEV5+4,V4:POKEV5+10,1:POKEV5+11,1
17 POKE56,88:POKE644,88:CLR:V5=49152:BB=PEEK(V5):BB$=CHR$(BB):OPEN5,2,0,BB$+CHR$(0):B1=56577:B2=56579:V5=49152:IFPEEK(V5+4)=219THENPOKEB2,PEEK(V5+1):POKEB1,PEEK(V5+2)
18 RE$=" ":DIMYY$(100):DIMZZ$(100):DIMBB$(100):SE$=" ":MO%=134:R%=0:C$="0123456789ABCDEF":RP=2:RS=0:WP=RP:WS=RS:POKE24575,RP:POKE24574,RS+96:POKE24573,WP:POKE24572,WS+96:PA(0)=10
19 PA(1)=6:PA(2)=2:ML=22784:PRINTCHR$(14):POKE24569,0:OPEN1,8,15:POKE556,0:POKE552,0:POKE553,1:DN$="":GOTO21
20 GET#5,A$,A$:SYSML+0:CLOSE11:POKE24569,0:TM=0:GOTO17
21 PRINT"[147][198]UNCTION:":PRINT"1 - [212]ERMINAL [205]ODE":PRINT"2 - [210]ECEIVE PROGRAM":PRINT"3 - [212]RANSMIT PROGRAM":PRINT"4 - [208]RINT [196]ISK [198]ILE":PRINT"5 - [195]HANGE [195]OLOURS":PRINT"6 - [196]IAL [193] [194][194][211]":PRINT"7 - [195]REATE #'S [198]ILE"
22 PRINT"8 - [195]ATALOG [193] [196]ISK, [210]EAD [197]RROR [195]HANNEL,":PRINT"    [211]END [196]ISK [195]OMMAND":PRINT"9 - [209]UIT":PRINT"[198]1- [211]ET [194]AUD [210]ATE":PRINT"[198]2- [195]HECK [193]LARM [210]OUTINE":PRINT"[198]3- [198]IND # [207]F [194]LOCKS [198]REE":PRINT"[198]4- [204]OCK [207]R [213]NLOCK [193] [198]ILE"
23 PRINT"[198]5- [195]HANGE [205]ODEM [196]EFAULTS"
24 GETA$:IFA$="[133]"THEN213
25 IFA$="[137]"THENHC$=" ":GOTO153
26 IFA$="[134]"THENGOSUB220:GOTO21
27 IFA$="[138]"THENGOTO229
28 IFA$="[135]"THENGOTO6
29 IFA$<CHR$(49)ORA$>CHR$(57)THEN24
30 ONVAL(A$)GOTO20,59,87,35,116,126,193,254,107:GOTO20
31 CLOSE11:PRINT"[206]AME OF [196]ISK [198]ILE":PRINT"[196]EFAULT IS [196]RIVE 0?":PRINT">";:GOSUB108:IFB$=""THEN21
32 IFMID$(B$,2,1)<>":"THENB$="1:"+B$
33 OPEN11,8,11,"@"+B$+",S,W":GOSUB115:IFESTHENPRINTES$:GOTO31
34 POKE24569,1:GOTO21
35 PRINT"[206]AME OF [198]ILE?":PRINT">";:GOSUB108:IFB$=""THEN21
36 CLOSE11:OPEN11,8,11,B$:GOSUB115:IFESTHENPRINTES$:GOTO35
37 PRINT"[193]SCII OR [195]BM [212]YPE [207]UTPUT?":PRINT">";:POKE555,0
38 GETA$:IFA$=""THEN38
39 IFA$=CHR$(13)THEN21
40 IFA$="A"THENPOKE555,0:GOTO42
41 IFA$<>"C"THEN38
42 PRINTCHR$(ASC(A$)OR128)"":SYSML+3:CLOSE11:GOTO21
43 GOSUB50:A=PEEK(553):A=A+1:IFA=2THENA=0
44 POKE553,A:GOTO137
45 GOSUB50:PA=PA+1:IFPA=3THENPA=0
46 POKE660,(PA(PA)ORDU)*16+1:GOTO137
47 GOSUB50:DU=DU+1:IFDU=2THENDU=0
48 POKE660,(PA(PA)ORDU)*16+1:GOTO137
49 A$=" [146]":GOTO51
50 A$=" "
51 PRINT"   ";LEFT$(DN$,PEEK(553));A$:PRINT"   ";LEFT$(DN$,PA);A$:PRINT"   ";LEFT$(DN$,DU);A$:RETURN:A$=" [146]":GOTO53
52 A$=" "
53 PRINT"   ";LEFT$(DN$,BR);A$:PRINT"   ";LEFT$(DN$,SB);A$:PRINT"   ";LEFT$(DN$,WL);A$:RETURN:GOSUB52:BR=BR+1:IFBR=3THENBR=0
54 POKE659,((SB*8)OR(2*WL)OR1)*16+(BR+6):GOTO19
55 GOSUB52:SB=SB+1:IFSB=2THENSB=0
56 POKE659,((SB*8)OR(2*WL)OR1)*16+(BR+6):GOTO19
57 GOSUB52:WL=WL+1:IFWL=2THENWL=0
58 POKE659,((SB*8)OR(2*WL)OR1)*16+(BR+6):GOTO19
59 :
60 PRINT"[206]AME OF [198]ILE?":PRINT"[196]EFAULT DRIVE IS #0":PRINT">";:GOSUB108:S$=B$:IFS$=""THENPRINT#5,"A";:GOTO20
61 IFMID$(S$,2,1)<>":"THENS$="0:"+S$
62 GOSUB78:S$="@"+S$+T$+",W":CLOSE2:OPEN2,8,2,S$:GOSUB115:IFESTHENPRINTES$:CLOSE2:GOTO60
63 PRINT#5,"TTTTTTTTTT";
64 FORX=0TO10:NEXT:GET#5,A$:IFST=0THEN64
65 SYSML+18:IFSTTHEN69
66 FORX=0TO10:NEXT:GET#5,A$:IFST=0THEN66
67 S1=PEEK(ML-2):S2=PEEK(ML-1):SYSML+12:IFS1<>PEEK(ML-2)ORS2<>PEEK(ML-1)THEN70
68 SYSML+15:PRINT#5,"";:PRINT"-";:GOTO64
69 CLOSE2:PRINT#5,"SSSSSSSSSS";:PRINT:GOTO153
70 PRINT#5,"";:PRINT":";:GOTO64
71 PRINT"[212]YPE OF [198]ILE:":PRINT"([208])ROGRAM, ([215])ORD[208]RO, OR ([211])EQ?":PRINT">";
72 GETB$:IFB$=""THEN72
73 TY$=B$:FL=0:IFB$="P"THENT$=",P":POKE557,0:PRINT"[208]ROGRAM":RETURN
74 IFB$="S"THENT$=",S":POKE557,0:PRINT"[211][197][209]":RETURN
75 IFB$="W"THENT$=",P":POKE557,1:PRINT"[215]ORD[208]RO":RETURN
76 IFB$=CHR$(13)THENFL=1:RETURN
77 GOTO72
78 PRINT#5,"UUUUUUUUUU";
79 GET#5,A$:IFST<>0THEN79
80 IFA$="P"THENT$=",P":POKE557,0:A$="[208]ROGRAM":GOTO84
81 IFA$="S"THENT$=",S":POKE557,0:A$="[211][197][209]":GOTO84
82 IFA$="W"THENT$=",P":POKE557,1:A$="[215]ORD[208]RO":GOTO84
83 GOTO79
84 PRINT"[198]ILE [212]YPE: "A$""
85 GET#5,A$:IFST=0THEN85
86 RETURN
87 :
88 PRINT"[206]AME OF [198]ILE TO [211]END?":PRINT">";:GOSUB108:S$=B$
89 IFS$=""THENPRINT#5,"A";:GOTO20
90 GOSUB71:IFFLTHENS$="":GOTO89
91 CLOSE2:OPEN2,8,2,S$+T$:GOSUB115:IFESTHENPRINTES$:CLOSE2:GOTO88
92 FORX=1TO10:PRINT#5,TY$;:NEXTX:PRINT
93 GET#5,A$:IFST<>0ORA$<>"U"THEN93
94 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN94
95 SYSML+9:CK=ST
96 FORX=1TO400:NEXT
97 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN97
98 FORT=0TO255:PRINT#5,CHR$(PEEK(ML-256+T));:NEXTT:PRINT#5,"ZZZZZZZZZZZZZZZ";
99 IFPEEK(669)<>PEEK(670)THEN99
100 GET#5,A$:IFST<>0THEN100
101 IFA$=""THENPRINT":";:GOTO96
102 IFA$<>""THEN100
103 IFCK=0THENPRINT"-";:GOTO94
104 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN104
105 CLOSE2:GOTO153
106 SYSML+21:A$=CHR$(PEEK(634)):RETURN
107 PRINT"[147][209]UIT?  [193]RE [217]OU [211]URE?":GOTO209
108 PRINT" [146][157]";:B$=""
109 GETA$:IFA$=""THEN109
110 IFA$=CHR$(20)THEN113
111 IFA$=CHR$(13)THENPRINT" ":RETURN
112 B$=B$+A$:PRINT" [157]"A$" [146][157]";:GOTO109
113 IFLEN(B$)=0THEN109
114 B$=LEFT$(B$,LEN(B$)-1):PRINTA$;:GOTO109
115 ::INPUT#1,E1$,E2$,E3$,E4$:ES$=E1$+","+E2$+","+E3$+","+E4$:ES=VAL(E1$):RETURN:POKE22784,0:RUN
116 F1=0:F2=0:F3=0
117 PRINT"[147][198]1=[194]ORDER COLOUR"CHR$(13)"[198]3=[194]ACKGROUND COLOUR":PRINT"[198]5=CURSOR COLOUR"CHR$(13)"[198]7=[194]ACK TO MAIN MENU":IFF1>15THENF1=0
118 IFF2>15THENF2=0
119 IFF3>15THENF3=0
120 GETYU$:IFYU$=""THEN120
121 IFYU$="[133]"THENPOKE53280,F1:F1=F1+1
122 IFYU$="[134]"THENPOKE53281,F2:F2=F2+1
123 IFYU$="[135]"THENPOKE646,F3:F3=F3+1
124 IFYU$="[136]"THEN21
125 GOTO117
126 RU=0:GOSUB160:DD=1:IFHH=0GOTO21
127 B1=56577:B2=56579:X1=0:IFRU<>1GOTO130
128 D$=ZZ$(DD):IFD$="@"THENDD=DD+1:D$=ZZ$(DD):IFZZ$(DD)="@"GOTO128
129 DD=DD+1:IFDD>ZZTHENDD=1:GOTO128
130 POKEB2,PEEK(V5+1):POKEB1,PEEK(V5+3):FORX=1TO1000:NEXTX:PRINT"[147]":PRINT:PRINT:PRINT"[196]IALING!":PRINT"[212]O [211]TOP [196]IALING [208]RESS [193]NY [203]EY [193]ND [215]AIT[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":POKEB1,PEEK(V5+2):T=100
131 T=T-1:IFT<>0GOTO131
132 D=LEN(D$):FORX=1TOD:N$=MID$(D$,X,1):II=0:IFN$<CHR$(48)ORN$>CHR$(57)THENII=1
133 IFN$="%"THENGOSUB198
134 PRINTN$;:IFII=1GOTO137
135 N=VAL(N$):IFN=0THENN=10
136 GOSUB146
137 NEXTX:PRINT:PRINT"[196]IAL [195]OMPLETE [204]ISTENING [198]OR [195]ARRIER":FORX=1TO800:IFPEEK(B1)<>PEEK(V5+4)THENX=3001:GOSUB201:IFSDTHENX1=1
138 GETFF$:IFFF$<>""GOTO21
139 NEXTX:IFX1<>1THEN127
140 IFRU<>1GOTO153
141 OPEN25,8,3,"0:CHECKER.D":INPUT#25,YY$:IFYY$="NO"THENCLOSE25:GOTO145
142 YY=1:YY$(YY)=YY$
143 YY=YY+1:INPUT#25,YY$(YY):IFYY$(YY)="@"THENYY=YY-1:CLOSE25:GOTO145
144 GOTO143
145 OPEN25,8,3,"@0:CHECKER.D,U,W":PRINT#25,D$:FORX=1TOYY:PRINT#25,YY$(X):NEXTX:PRINT#25,"@":CLOSE25:GOTO153
146 FORN1=1TON:POKEB1,PEEK(V5+3):T=3
147 T=T-1:IFT<>0THEN147
148 POKEB1,PEEK(V5+2):T=3
149 T=T-1:IFT<>0THEN149
150 NEXTN1:T=8
151 T=T-1:IFT<>0THEN151
152 RETURN:GOTO20
153 S=54272:FORL=0TO24:POKES+L,0:NEXT:POKES+1,100:POKES+5,10:POKES+15,255:POKES+24,15
154 POKES+4,21:GETCH$
155 IFCH$=""GOTO158
156 FORL=STOS+24:POKEL,0:NEXTL:PRINT"[147]";:IFHC$=" "THENHC$="":GOTO21
157 GOTO20
158 FORT=1TO1000:NEXT:POKES+4,20:FORT=1TO1000:NEXT:IFHC$<>""THENCH$=" ":GOTO155
159 GOTO154
160 PRINT"[147]":PRINT"[206]UMBER [198]ROM ([203])EYBOARD OR ([196])ISK":GETKK$
161 GETKK$:IFKK$=""GOTO161
162 IFKK$="K"THENGOSUB190:RETURN
163 IFKK$="D"THENGOTO165
164 IFKK$<>"D"THENGOTO160
165 PRINT"[147]":ZZ=1
166 NF$="":INPUT"[198]ILE [206]AME ";NF$:PRINT"[195]LEAR [213]SED #'S [198]ILE ([217] OR [206])":IFNF$=""GOTO21
167 GETYN$:IFYN$=""GOTO167
168 IFYN$="N"GOTO171
169 IFYN$="Y"THENOPEN25,8,3,"@0:CHECKER.D,U,W":PRINT#25,"NO":CLOSE25:GOTO171
170 IFYN$<>"Y"THENGOTO167
171 PRINT"[147]":OPEN25,8,3,"0:CHECKER.D":INPUT#25,YY$:IFYY$="NO"THENCLOSE25:PP=1
172 CLOSE25:OPEN15,8,3,""+NF$
173 INPUT#15,ZZ$(ZZ):IFZZ$(ZZ)=""THENCLOSE15:GOTO166
174 IFZZ$(ZZ)="@"THENCLOSE15:GOTO176
175 ZZ=ZZ+1:GOTO173
176 IFPP=1GOTO180
177 OPEN25,8,3,"0:CHECKER.D":YY=1
178 INPUT#25,YY$(YY):IFYY$(YY)="@"THENCLOSE25:YY=YY-1:GOTO180
179 YY=YY+1:GOTO178
180 FORX=1TOZZ-1:PRINTX;" ";ZZ$(X):NEXTX:PRINT:PRINT:FG=0
181 PRINT"[208]ICK [193] [206]UMBER ([193] FOR ALL)":INPUT"[206][#] = [206]UMBER [206]OT [212]O [194]E [196]IALLED";DD$:IFDD$=""GOTO21
182 IFDD$="A"THENRU=1:GOSUB187:RETURN
183 IFLEFT$(DD$,1)="N"THENZZ$(VAL(MID$(DD$,2,1)))="@":FG=1:GOTO181
184 IFVAL(DD$)=0ORVAL(DD$)>ZZ-1GOTO181
185 IFFG<>0THENPRINT"[145][145][145]":GOTO181
186 HH=1:D$=ZZ$(VAL(DD$)):RETURN
187 HH=0:FORUU=1TOYY:FORII=1TOZZ:IFZZ$(II)=YY$(UU)THENZZ$(II)="@"
188 NEXTII:NEXTUU:FORII=1TOZZ:IFZZ$(II)<>"@"THENII=ZZ+1:HH=1
189 NEXTII:RETURN
190 PRINT"[147]":OO$="":INPUT"# [212]O [196]IAL (%=5 [211]EC. [196]ELAY)";OO$:IFOO$=""GOTO21
191 IFLEN(OO$)<7GOTO190
192 D$=OO$:HH=1:RETURN
193 PRINT"[147]":FORBB=1TO100:BB$(BB)="":NEXTBB:NF$="":INPUT"[198]ILE [206]AME";NF$:IFNF$=""GOTO21
194 BB=1
195 PRINT"[206]UMBER [212]O [196]IAL ([210][212][206] [212]O [215]RITE [198]ILE)":INPUTBB$(BB):IFBB$(BB)=""GOTO197
196 BB=BB+1:PRINT"[145]":GOTO195
197 OPEN40,8,3,"@0:"+NF$+",S,W":FORVV=1TOBB-1:PRINT#40,BB$(VV):NEXTVV:PRINT#40,"@":CLOSE40:GOTO21
198 TY=300:TZ=TI
199 IFTI>TY+TZTHENRETURN
200 GOTO199
201 SD=0:SA=TI
202 IFTI-SA<60GOTO204
203 GOTO207
204 IFPEEK(B1)<>PEEK(V5+4)THENSD=1
205 IFPEEK(B1)=PEEK(V5+4)THENSD=0:GOTO207
206 GOTO202
207 IFSD=0THENPRINT"[194]USY!"
208 RETURN
209 GETA$:IFA$=""GOTO209
210 IFA$<>"Y"ANDA$<>"[217]"THEN212
211 POKE22784,0:SYS64738
212 GOTO21
213 PRINT"[147]":PRINT" [194]AUD [210]ATE                        [197]NTER":PRINT" [163][163][163][163][163][163][163][163][163]                        [163][163][163][163][163]":PRINT"    50                              1  ":PRINT"    75                              2  "
214 PRINT"   110                              3  ":PRINT" 134.5                              4  ":PRINT"   150                              5  ":PRINT"   300                              6  "
215 PRINT"   600                              7  ":PRINT"  1200                              8  ":PRINT"[208]ICK A [206]UMBER (1-8) > ";
216 GETAB$:IFAB$=""GOTO216
217 IFAB$=CHR$(13)THEN21
218 IFAB$<CHR$(49)ORAB$>CHR$(56)THEN216
219 PRINTAB$:OPEN50,8,3,"@0:BAUD RATE.D,U,W":PRINT#50,AB$:POKEV5,VAL(AB$):CLOSE50:GOTO17
220 PRINT"[147][215]HICH [196]RIVE? (0 OR 1)"
221 GETWD$:IFWD$=""GOTO221
222 IFWD$=CHR$(13)THEN21
223 IFWD$<CHR$(48)ORWD$>CHR$(49)THEN221
224 OPEN15,8,15:D=8:PRINT#15,"I"+WD$:OPEN50,D,0,"$"+D$+":!#$%&":FORD=1TO34:GET#50,X$:NEXTD:GET#50,X$:X=LEN(X$):IFXTHENX=ASC(X$)
225 GET#50,X$:Y=LEN(X$):IFYTHENY=ASC(X$)
226 L=X+Y*256:PRINT"(";L;"BLOCKS FREE )":CLOSE50:CLOSE15:PRINT"[208]RESS [193]NY [203]EY [212]O [195]ONTINUE"
227 GETAK$:IFAK$=""GOTO227
228 RETURN
229 PRINT"[147]":DI=18:AB=19:INPUT"L[146]OCK OR U[146]NLOCK  *[157][157][157]";C$:C$=LEFT$(C$,1):AK$=CHR$(34):IFC$<>"L"ANDC$<>"U"THEN21
230 PRINT"[145]";TAB(16);:OS=0:IFC$="L"THENAC$="LOCK":PRINTAC$:OS=64:GOTO232
231 AC$="UNLOCK":PRINTAC$
232 O1=64-OS
233 INPUT"WHICH FILE  *[157][157][157]";F$:IFF$="*"THENPRINT"[145][145]";:GOTO233
234 D=0
235 INPUT"TYPE OF FILE  PRG[157][157][157][157][157]";TY$:TY=128-(TY$="SEQ")-2*(TY$="PRG")-3*(TY$="USR")-4*(TY$="REL"):IFTY=128THENPRINT"[145]";:GOTO235
236 OPEN15,8,15:NL$=CHR$(0):N$=F$:OPEN50,8,2,"#":GET#50,A$:PRINT"LOOK FOR "TY$" FILE "AK$F$AK$:FORS=1TOAB:PRINT#15,"U1:";2;0;DI;S:FORI=0TO7:PRINT#15,"B-P:";2;(2+32*I):GET#50,FT$:IFFT$=""THENFT$=NL$
237 FT=ASC(FT$):IFFT<>TY+O1THEN240
238 H$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":F$=LEFT$(F$+H$,16):PRINT#15,"B-P:";2;(5+32*I):W$="":FORQ=1TO16:GET#50,A$:IFA$=""THENA$=NL$
239 W$=W$+A$:NEXTQ:IFF$=W$THEN241
240 NEXTI:NEXTS:PRINT""TY$" FILE "AK$N$AK$" NOT FOUND[146]":GOTO242
241 PRINT"FOUND: "AK$N$AK$" ,"AC$:I1=I:S1=S:PRINT#15,"B-R:";2;0;DI;S1:PRINT#15,"B-P:";2;(2+32*I1):PRINT#50,CHR$(TY+OS);:PRINT#15,"U2:";2;0;DI;S1
242 CLOSE50:CLOSE15:PRINT"[208]RESS [193]NY [203]EY [212]O [195]ONTINUE"
243 GETAK$:IFAK$=""GOTO243
244 GOTO21
245 PRINT"[208]RESS '[205]' [198]OR [205]ENU, [193]NY [207]THER [198]OR [205]ORE"
246 GETAA$:IFAA$=""GOTO246
247 IFAA$="M"ORAA$="[205]"GOTO17
248 GOTO254
249 INPUT#15,E,E$,T,S:PRINTE;"[157], ";E$;",";T;"[157],";S:RETURN
250 OPEN15,8,15:GOSUB249:CLOSE15:GOTO245
251 POKEBS,34:POKEBP,1:INPUT"DISK COMMAND";DC$:OPEN15,8,15:PRINT#15,DC$:PRINT:GOSUB249:CLOSE15:GOTO245
252 INPUT"FILENAME/TYPE PATTERN  *[157][157][157]";FP$:INPUT"DRIVE #  0[157][157][157]";DN$:CR$=CHR$(13):PRINT:PRINT"PRESS 'RETURN' TO QUIT,":PRINT"ANY OTHER KEY TO PAUSE OR CONTINUE":PRINT:OPEN1,8,0,"$"+DN$+":"+FP$:GET#1,X$,X$,X$,X$:FORG1=-1TO0:PRINT:GET#1,L$,H$
253 PRINT256*ASC(H$+CHR$(0))+ASC(L$+CHR$(0));:FORG2=-1TO0:GET#1,X$:PRINTX$;:G2=(X$>""):NEXT:GET#1,X$,X$:GETP1$:FORP2=-1TO0:GETP2$:P2=(P1$<>""ANDP1$<>CR$ANDP2$=""):NEXT:G1=X$>""ANDP1$<>CR$ANDP2$<>CR$:NEXT:CLOSE1:PRINT:GOTO245
254 PRINT"[147]1. READ ERROR CHANNEL":PRINT"2. SEND DISK COMMAND":PRINT"3. READ DISK DIRECTORY":CLR:MT=(PEEK(1024)=0):BS=631+8*MT:BP=198+40*MT:PRINT:PRINT"WHICH? ";:FORG1=-1TO0:GETC$:G1=(C$<"1"ORC$>"3"):NEXT:PRINTC$:PRINT:ONVAL(C$)GOTO250,251,252